home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Visual Database / Visual Foxpro 6.0 (Ent. Edition) / Vf6ent Extractor.EXE / TOOLS / XSOURCE / XSOURCE.ZIP / vfpsource / Builders / RIBUILDR / rimain.prg < prev   
Encoding:
Text File  |  1998-05-01  |  1.9 KB  |  71 lines
  1. * Program:        RIMain.PRG
  2. * Description:    Main program file for Referential Integrity Builder
  3. *               Intended to be called from BUILDER.APP, so all environment
  4. *               and other settings should have been made there.
  5. * Version:        .050
  6. * -----------------------------------------------------------------------------------------
  7.  
  8. #DEFINE C_BADCALL1_LOC    "The RI Builder cannot be run as a standalone application. Use BUILDER.APP instead."
  9. #DEFINE C_BADCALL2_LOC    "The proper context for the RI Builder has not been established."
  10. #DEFINE C_VCX            "ribuildr.vcx"
  11. #DEFINE C_MAIN            "CMDMAIN"
  12.  
  13. PARAMETERS p1, p2, p3, p4, p5, p6, p7, p8, p9, p10, p11, p12, p12, p13, p14, p15
  14.  
  15. PRIVATE m.wbReturnValue, m.cParmstring
  16. LOCAL wbi
  17.  
  18. *- make sure we are not called directly
  19. IF PROGRAM(0) == C_MAIN
  20.     *- called directly, so fail
  21.     =MESSAGEBOX(C_BADCALL1_LOC)
  22.     RETURN
  23. ENDIF
  24.  
  25. IF TYPE("wboObject") # 'O'
  26.     *- environment doesn't appear to be set up properly
  27.     =MESSAGEBOX(C_BADCALL2_LOC)
  28.     RETURN
  29. ENDIF
  30.  
  31. RELEASE wboName
  32. PUBLIC wboName
  33.  
  34. m.cParmstring = ""
  35. FOR m.wbi = 1 to PARAMETERS()
  36.     m.thisp = "p" + LTRIM(STR(m.wbi))
  37.     m.cParmstring = m.cParmstring + IIF(!EMPTY(cParmString),",","") + m.thisp    && will create ...,p1,p2,..." etc
  38. ENDFOR
  39.  
  40. SELECT (wboObject.wbaEnvir[5])
  41.  
  42. m.wbReturnValue = wboObject.wbReturnValue
  43.  
  44. SET CLASSLIB TO C_VCX ADDITIVE
  45.     
  46. wboName = CREATEOBJ(wboObject.wbcBldrClass, &cParmstring)        && all builders and wizards are modal formsets
  47.  
  48. IF TYPE("_TIMING") <> "U" AND _TIMING
  49.     RETURN
  50. ENDIF
  51.  
  52. IF TYPE("wboName") = "O"
  53.     wboName.SHOW
  54. #IF 0
  55.     IF wboName.wbcName = "RIBUILDR"
  56.         SET SKIP OF BAR _MWI_DEBUG OF _MSM_TOOLS .f.
  57.         SET SKIP OF BAR _MWI_TRACE OF _MSM_TOOLS .f.
  58.     ENDIF
  59. #ENDIF
  60. ENDIF
  61.  
  62. wboObject.wbReturnValue = m.wbReturnValue
  63.  
  64. IF wboObject.wblModal                            && don't release, if modeless for testing
  65.     RELEASE wboName
  66.     IF FILE(C_VCX)
  67.         RELEASE CLASSLIB C_VCX
  68.     ENDIF
  69. ENDIF
  70.  
  71.